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/*****★************** ********************************* Tl 
* * 
* 

* Copyright 1996, 1997, 1998 - A-LIFE Medical, Inc. - All Rights 
Reserved. 

* 

* Program: LifeCode Medical Coding System 
* 

* File: temporal. lex 
* 

* Description: 

* This file defines the parser for temporal expressions. 
* 

* RCS Data: (do not edit) 
* 

* Author : $Author : mlm $ 

* Date: $Date: 1997/05/16 14:06:48 $ 

* Version: $Revision: 1.2 $ 
* 

* History: $Log: temporal . lex $ 

* Revision 1.2 1997/05/16 14:06:48 mlm 

* Added recognition of cardinal numbers 53-90 
* 



# include <iostream. h> 
#include <string.h> 

#ifdef LEXER 

// TimeLexer class definition 
extern int yyignore; 

class TimeLexerClass { 



private : 



char begin_buf [256] ; 
char end_buf [2 56] ; 
char mod [256] ; 
char modtext [256] ; 
char end_int [256] ; 
ostream *ostr; 



public : 

int temporal (char* scale, unsigned char* text) { 
if (yyignore) { 

not_temporal (text) ; 
return 0; 
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} 

*ostr << " T " << mod << " " << end_int << " " << scale << " 

begin_buf [0] = NULL; 
end_buf [0] = NULL; 
mod[0] = NULL; 
modtext[0] = NULL; 
return 1 ; 

} 

int number (char *week, unsigned char* text) { 
if (yy ignore) { 

not_temporal (text) ; 
return 0; 

} 

if (begin_buf [0] == NXILL) { 

strcpy (begin_buf , (char *)text); 

strcpy {end_int , week) ; 
} else { 

strcpy (end_buf , (char *)text); 

strcpy (end_int, week); 

if ( ! strcmp (begin_buf , end_buf ) ) begin_buf [0] = NULL; 

} 

return 1; 

} 

int push (char* scale, unsigned char* text) { 
if (yyignore) { 

not_temporal (text) ; 
return 0; 

} 

strcpy (modtext, (char *)text); 
if (strcmp (scale, "JUNK")) { 
strcpy (mod, scale); 

} 

return 1; 

} 

int not_temporal (unsigned char* text) { 

*ostr << modtext << begin_buf << end_buf << (char *)text; 
clear 0 ; 
return 1; 

} 

int clear (void) { 

begin_buf [0] = NULL; 
end_buf [0] = NULL; 
mod[0] = NULL; 
modtext [0] = NULL; 
end_int[0] = NULL; 
return 1; 

} 

void end_line (void) { *ostr << endl; } 

TimeLexerClass ( ) { 
ostr = &cout; 
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begin_buf [0] = NULL; 
end_buf [0] = NULL; 
mod[0] = NULL; 
modtext[0] = NULL; 
end_int [0] = NULL; 

} 

-TimeLexerClass ( ) { 

} 

}; 

// Segmenter Base class definition 
class SegmenterBaseClass { 

public : 

TimeLexerClass time_lexer; 

SegmenterBaseClass { ) { 

} 

-SegmenterBaseClass () { 
} 

}; 

ttendif 

#ifndef LEXER 
#include "seg_base.h" 
#undef yY_INPUT 

#define YY_INPUT (buf , result , max_size) \ 

Segmenter_p->time_lexer .get (buf , max_size, EOF); \ 
result = Segment e r_p - >t ime_l exer .gcount {) ; \ 
Segmenter_p->time_lexer . accumulate (result) ; 

#endif 

extern SegmenterBaseClass *Segmenter _p; 
extern int yylexO; 
int yyignore = 0; 

%} 



LT {less[ ] than|within[ ] (the [ ] last )? | not? [ ] more [ 
] than) 

MT ( (more I longer) [ ] than | over | at [ ] ?least ( not? [ ] less [ 
] than) 

JUNK (approximately | about | around) 

AGO (ago I since I past ) 

MNl (minute ([ ]|s[ ]|s'[ ]|'s[ ]){aGO}?) 

MN ([\- ]?{MN1}) 

HRl (hour(t ]|st ]|s'[ 3|'s[ ]){AG0}?) 

HR {[\- ]?{HR1}) 

DAI (day([ ]|s[ ]|s'[ ]|'s[ ]){ago}?) 

DA ( [\- ] {DAI}) 

WKl (we?e?k([ ]|s[ ]|s'[ ]|'s[ ]){AG0}?) 

WK ( [\- ] ?{WKl}) 

MOl (month ([ ]|s[ ]|s'[ ]|'s[ ]){AG0}?) 

MO ( [\- ] ?{M01}) 
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YRl (year([ ]|s[ IjsM ]|'s[ ]){ago}?) 

YR ( [\- ] ?{YR1}) 

DASH ([]?-[ ]?| [ ] {to|or) [ ]) 

ND ({dash}?) 

DASH_SP ( {ND} ( {dash} | [ ] ) ) 

HALF ( [\-] ?l\/2 I ( (one|a) [\- ] ) ?half ) 

QUARTER ( [\-] ?l\/4 I ( (one|a) [\- ] ) ?quarter) 

HALFl ( [\-] ?l\/2 I (one|a) [\- ]half) 

QUARTERl ( [\-] ?l\/4 I (onej a) [\- Iquarter) 

FRACTION ( { QUARTERl } | {HALFI } ) 

FRACT {[ ]?(and)?[ ]?{ FRACTION} ) 

FRACT_HALF ([ ]?(and)?[ ]?{HALF1}) 

FRACT_QUARTER ( [ ] ? ( and) ? [ ] ? { QUARTERl } ) 

_0_1 { {DASH_SP}0?\ . 1 [0-9] *) 

_0_2 {{DASH_SP}0?\.2 [0-4] *) 

_0_25 {{DASH_SP} (0?\.2 [5-9] | {QUARTER})) 

_0_3 {{DASH_SP}0?\.3 [0-9] *) 

_0_4 {{DASH_SP}0?\ .4 [0-9] *) 

_0_5 {{DASH_SP} (0?\ . 5 [0-9] * | {HALF} ) ) 

_0_6 ({DASH_SP}0?\.6 [0-9] *) 

_0_7 ({DASH_SP}0?\.7 [0-4] *) 

_0_75 {{DASH_SP}0?\ .7 [5-9] ) 

_0_8 ({DASH_SP}0?\.8 [0-9] *) 

_0_9 ({DASH_SP}0?\.9 [0-9] *) 

_1 {{DASH_SP} (l|one|an|a) ) 

_1_1 {{DASH_SP}i\ .1 [0-9] *) 

_1_2 {{DASH_SP}1\.2 [0-4] *) 

_1_25 {{DASH_SP} (1\.2 [5-9] | ( 1 | one ) { FRACT_QUARTER } ) ) 

_1_25HR {{DASH_SP} (l|one|an) [\- ] iiours? { FRACT_QUARTER} ) 

_1_2 5DA { { DASH_SP } ( 1 | one ) [ \ - ] days ? { FRACT_QUARTER } ) 

_1_25WK { {DASH_SP} (1 jone) [\- ] we?e?}cs? { FRACT_QUARTER} ) 

_1_3 { {DASH_SP}1\ .3 [0-9] *) 

_1_4 {{DASH_SP}1\.4 [0-9] *) 

_1_5 {{DASH_SP} (1\.5[0-9]*| {l|one) { FRACT_HALF } ) ) 

_1_5HR {{DASH_SP} (l|one|an) [\- ] liours? {FRACT_HALF} ) 

_1_5DA ({DASH_SP} (1 jone) [\- ] day s ? { FRACT_HALF } ) 

_1_5WK ({DASH_SP} (ijone) [\- ] we?e?]cs? {FRACT_HALF} ) 

_1_6 ({DASH_SP}1\.6 [0-9] *) 

_1_7 ({DASH_SP}1\.7 [0-4] *) 

_1_75 ({DASH_SP}1\.7 [5-9] ) 

_1_8 {{DASH_SP}1\.8 [0-9] *) 

_1_9 ({DASH_SP}1\.9[0-9] *) 

_2 ( {DASH_SP} (2 I two) ) 

_2_1 {{DASH_SP}2\.1 [0-9] *) 

_2_2 {{DASH_SP}2\.2 [0-4] *) 

_2_25 {{DASH_SP} (2\.2 [5-9] | (2 | two) { FRACT_QUARTER} ) ) 

_2_25HR {{DASH_SP} (2 I two) [\- ] liours? { FRACT_QUARTER} ) 

_2_2 5DA { { DASH_SP } ( 2 | two ) [ \ - ] days ? { FRACT_QUARTER } ) 

_2_25WK ( {DASH_SP} (2 I two) [\- ] we?e?}cs? {FRACT_QUARTER} ) 

_2_3 ({DASH_SP}2\.3 [0-9] *) 

_2_4 ({DASH_SP}2\ .4 [0-9] *) 

_2_5 ({DASH_SP} (2\.5[0-9]*| (2|two) { FRACT_HALF} ) ) 

_2__5HR ({DASH_SP} (2 I two) [\- ] hours ?{ FRACT_HALF } ) 

_2__5DA ({DASH_SP} (2 I two) [\- ] day s ? { FRACT_HALF } ) . 

_2_5WK ({DASH_SP} (2 I two) [\- ] we?e?lcs? { FRACT__HALF} ) 

2 6 ({DASH_SP}2\ .6 [0-9] *) 



Page# 



Appendix A 



_2_7 


({dash_sp 


\2\ 


.7 [0-4] 


*) 




_2_75 


({dash_sp 


\2\ 


.7 [5-9: 


) 




_2_8 


({dash_sp 


\2\ 


.8 [0-9] 


*) 




_2 9 


({dash_sp 


\2\ 


.9 [0-9] 


*) 




_3 


({dash_sp 


K3 


three! 


) 




_3_1 


({dash_sp 


f3\ 


.1 [0-9] 


*) 




_3__2 


({dash_sp 


[3\ 


.2 [0-4] 


*) 




_3_25 


{{dash_sp 


K3^ 


^.2[5-< 


^] 1 


(3 1 three) { FRACT_QUARTER } ) ) 


_3_2 5HR 


({DASH_SP 


K3 


three) 


[\ 


- ] hours? {FRACT_QUARTER}) 


_3_25DA 


({ DASHES P 


(3 


three! 


[\ 


- ]days?{FRACT_QUARTER}) 


_3__2 5WK 


{ {dash_sp^ 


(3 


three! 


[\ 


- ] we?e?k:s?{FRACT_QUARTER}) 


_3_3 


{ {dash_sp 


[3\ 


3 [0-9! 


*) 




_3_4 


{{dash_sp 


f3\ 


4 [0-9! 


*) 




_3_5 


( {dash_sp' 


\ (3> 


V.5[0-< 


?]* 


1 (3 1 three) {FRACT_HALF}) ) 


_3_5HR 


( {dash_sp^ 


(3 


three! 


[\ 


- ] hours? {FRACT_HALF}) 


_3_5DA 


{ {dash_sp^ 


(3 


three! 


(\ 


- ]days?{FRACT_HALF}) 


_3_5WK 


( {dash_sp; 


(3 


three) 


[\ 


- ] we?e?Jcs?{FRACT_HALF}) 


_3_6 


{ {dash_sp 


^3\ 


6 [0-9! 


*) 




_3_7 


{{dash_sp; 


[3\ 


7 [0-4! 


*) 




_3_75 


{{dash_sp^ 


[3\ 


7 [5-9! 


) 




_3_8 


({DASH_SP^ 


[3\ 


8 [0-9! 


*) 




_3_9 


({dash_sp^ 


\^\ 


9 [0-9! 


*) 




_4 


({dash_sp; 


\ (4 


four) ) 






_4_1 


({dash_sp 


\^\ 


1 [0-9! 


*) 




_4_2 


({dash_sp 


\^\ 


2 [0-4] 


*) 




_4_25 


({dash_sp 


\ (4> 


^.2[5-< 


1 


(4 1 four) {FRACT_QUARTER} ) ) 


_4_25HR 


({dash_sp 


\ (4 


four) 


[\- 


] hours? { FRACT_QUARTER} ) 


_4_2 5DA 


({dash_sp 


\ (4 


four) 


[\- 


] days ? { FRACT_QUARTER } ) 


_4_2 5WK 


({dash_sp^ 


\ (4 


four) 


[\- 


] we ? e ? }cs ? { FRACT_QUARTER } ) 


_4_3 


({dash_sp^ 


f4\ 


3 [0-9] 


*) 




_4_4 


({dash_sp; 




4 [0-9! 


*) 




_4_5 


({dash_sp" 


\ (4N 


^.5[0-S 




1 (4 1 four) {FRACT_HALF}) ) 


_4_5HR 


({dash_sp; 


(4 


four) 


[\- 


] hours ? { FRACT_HALF } ) 


_4_5DA 


({dash_sp' 


(4 


four) 


[\- 


] days ? { FRACT_HALF } ) 


_4_5WK 


({dash_sp; 


K4 


four) 


[\- 


] we?e?]cs? { FRACT_HALF} ) 


_4_6 


({dash_sp 


4\ 


6 [0-9] 


*) 




_4_7 


({dash_sp; 


4\ 


7 [0-4] 


*) 




_4_75 


({DASH_SP 


4\ 


7 [5-9] 


) 




_4_8 


({dash_sp^ 


4\ 


8 [0-9: 


*) 




_4_9 


({dash_sp; 


4\ 


9 [0-9: 


*) 




_5 


({dash_sp; 


(5 


five) ; 






_5_1 


( {dash_sp; 


5\ 


1 [0-9: 


*) 




_5_2 


( {dash_sp' 


5\ 


2 [0-4: 


*) 




_5_2 5 


( {dash_sp; 


(5N 


^.2[5-5 


?] 1 (5 1 f ive) {FRACT QUARTER})) 


_5_2 5HR 


( {dash_sp; 


(5 


five) 


[\- 


] hours ? { FRACT_QUARTER } ) 


_5_2 5DA 


( {dash_sp' 


(5 


five) 


[\- 


] days ? { FRACT_QUARTER } ) 


_5_2 5WK 


( {dash_sp; 


(5 


five) 


[\- 


] we ? e ? Jcs ? { FRACT_QUARTER } ) 


_5_3 


({dash_sp 


5\ 


3 [0-9] 


*) 




_5_4 


({dash_sp; 


\s\ 


4 [0-9: 


*) 




_5_5 


({dash_sp 


{s\ 


<.5[0-5 


?]* 


1 (5 1 five) {FRACT_HALF}) ) 


_5_5HR 


({dash_sp 


(5 


five) 


[\- 


] hours ? { FRACT_HALF } ) 


_5_5DA 


({DASH_SP^ 


(5 


five) 


[\- 


] days ? { FRACT_HALF } ) 


_5_5WK 


({dash_sp^ 


(5 


five) 


[\- 


] we?e?)cs? { FRACT_HALF} ) 


_5_6 


({DASH_SP^ 


5\, 


6[0-9] 


*) 




_5_7 


({DASH_SP^ 


5\, 


7 [0-4] 


*) 




_5_75 


({DASH_SP^ 


5\. 


7 [5-9] 


) 




_5_8 


({dash_sp; 


5\. 


8 [0-9] 


*) 
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5_9 ( {DASH_SP}5\ . 9 [0-9] *) 

6 ({DASH_SP} (6 I six) ) 
6_1 ({DASH_SP}6\.1 [0-9] *) 
6_2 ({DASH_SP}6\.2 [0-4] *) 

6_25 ({DASH_SP} (6\.2 [5-9] | ( 6 | six) { FRACT_QUARTER} ) ) 

6_25HR ({DASH_SP} (6|six) [\- ] hours? { FRACT_QUARTER} ) 

6_25DA ({DASH_SP} (6|six) [\- ] day s ? { FRACT_QUARTER } ) 

6_25WK ({DASH_SP} (6|six) [\- ] we?e?]cs? { FRACT_QUARTER} ) 

6_3 ({DASH_SP}6\.3 [0-9] *) 

6_4 ({DASH_SP}6\.4 [0-9] *) 

6_5 ({DASH_SP} (6\ .5 [0-9] * | (6 | six) { FRACT_HALF} ) ) 

6_5HR ({DASH_SP} (6|six) [\- ] hours? { FRACT_HALF} ) 

6_5DA ({DASH_SP} (6 jsix) [\- ] days? { FRACT_HALF} ) 

6_5WK ({DASH_SP} (6 jsix) [\- ] we?e?ks? { FRACT_HALF} ) 

6_6 ({DASH_SP}6\ .6 [0-9] *) 

6_7 ({DASH_SP}6\ .7 [0-4] *) 

6_75 ({DASH_SP}6\ .7 [5-9] ) 

6_8 ({DASH_SP}6\ .8 [0-9] *) 

6_9 ({DASH_SP}6\ .9 [0-9] *) 

7 ( {DASH_SP} (7 I seven) ) 
7_1 ( {DASH_SP}7\ . 1 [0-9] *) 
7_2 ({DASH_SP}7\.2 [0-4] *) 

7_25 ( {DASH_SP} (7\ .2 [5-9] | (7 | seven) { FRACT_QUARTER} ) ) 

7_25HR ( {DASH_SP} (7 I seven) [\- ] hours? { FRACT_QUARTER} ) 

7_25DA ( {DASH_SP} (7 I seven) [\- ] days? { FRACT_QUARTER} ) 

7_25WK ( {DASH_SP} (7 I seven) [\- ] we?e?ks? { FRACT_QUARTER} ) 

7_3 ( {DASH_SP}7\ .3 [0-9] *) 

7_4 ( {DASH_SP}7\ .4 [0-9] *) 

7_5 ( {DASH_SP} {7\ .5 [0-9] * | (7 | seven) { FRACT_HALF } ) ) 

7_5HR ({DASH_SP} (7|seven) [\- ] hours? { FRACT_HALF} ) 

7_5DA ({DASH_SP} (7 [seven) [\- ] days ? { FRACT_HALF } ) 

7__5WK ({DASH_SP} (7 1 seven) [\- ] we?e?ks? {FRACT_HALF} ) 

7_6 ({DASH_SP}7\.6 [0-9] *) 

7_7 ({DASH_SP}7\.7 [0-4] *) 

7_75 ( {DASH_SP}7\ . 7 [5-9] ) 

7_8 ( {DASH_SP}7\ . 8 [0-9] *) 

7_9 ( {DASH_SP}7\ . 9 [0-9] *) 

8 { {DASH_SP} (8 I eight) ) 
8_1 {{DASH_SP}8\.1 [0-9] *) 
8_2 ( {DASH_SP}8\ .2 [0-4] *) 

8_25 {{DASH_SP} (8\.2 [5-9] | (8 | eight ) {FRACT_QUARTER} ) ) 

8_25HR {{DASH_SP} (8 |eight) [\- ] hours? {FRACT_QUARTER} ) 

8_25DA ({DASH_SP} (8 jeight) [\- ] days? { FRACT_QUARTER} ) 

8_25WK ({DASH_SP} (8 jeight) [\- ] we?e?ks? {FRACT^QUARTER} ) 

8_3 ({DASH_SP}8\.3 [0-9] *) 

8_4 ({DASH_SP}8\ .4 [0-9] *) 

8_5 ({DASH_SP} (8\ .5 [0-9] * ( (8 | eight) { FRACT__HALF } ) ) 

8_5HR ({DASH_SP} (8 jeight) [\- ] hours? { FRACT_HALF} ) 

8_5DA ({DASH_SP} (8 jeight) [\- ] day s ? { FRACT_HALF } ) 

8_5WK ({DASH_SP} (8 jeight) [\- ] we?e?ks? { FRACT_HALF} ) 

8_6 ({DASH_SP}8\ .6 [0-9] *) 

8_7 ({DASH_SP}8\ .7 [0-4] *) 

8_75 ({DASH_SP}8\.7 [5-9] ) 

8_8 ({DASH_SP}8\.8 [0-9] *) 

8_9 ({DASH_SP}8\ .9 [0-9] *) 

9 ({DASH_SP} (9 I nine) ) 

9 1 ({DASH_SP}9\.l[0-9]*) 
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_9_2 {{DASH_SP}9\.2 [0-4] * 

_9_25 {{DASH_SP} (9\ .2 [5-9] 

_9_25HR ({DASH_SP} (9|nine) [\ 

_9_25DA ({DASH_SP} (9|nine) [\ 

_9^25WK ({DASH_SP} (9|nine) [\ 

_9_3 {{DASH_SP}9\.3 [0-9] * 

_9_4 ({DASH_SP}9\.4 [0-9] * 

_9_5 {{DASH_SP} (9\.5 [0-9] 

_9_5HR {{DASH_SP} {9|nine) [\ 

_9_5DA ({DASH_SP} {9|nine) [\ 

_9_5WK ({DASH_SP} (9|nine) [\ 

_9__6 ({DASH_SP}9\.6 [0-9] * 

_9_7 ({DASH_SP}9\.7 [0-4] * 

_9_75 ({DASH_SP}9\.7 [5-9] ) 

_9_8 ({DASH_SP}9\.8 [0-9] * 

_9_9 ({DASH_SP}9\.9[0-9] * 

_10 {{DASH_SP} (10 I ten) ) 

_11 ({DASH_SP} (11|10\. [0 

_12 {{DASH_SP} (12 I 11\. [O 

_13 ({DASH_SP} (13 |12\. [O- 

9] + 1 tliirteenl (12 | twelve) {fraCT}) ) 
_14 ({DASH_SP} (14 |13\. [O- 

9] + I fourteen | ( 13 | thirteen) { FRACT} ) ) 
_15 ({DASH_SP} (15|14\. [O- 

9] + 1 fifteen I (14 | fourteen) { FRACT})) 
_16 ( {DASH_SP} (16 I 15\ . [O- 

9] + I sixteen I (15 | fifteen) {FRACT}) ) 
_17 {{DASH_SP} (17|16\. [0- 

9] + I seventeen! (16 | sixteen) {FRACT} ) ) 
_18 ({DASH_SP} (18|17\. [0- 

9] +|eigliteen| (17 | seventeen) { FRACT}) ) 
_19 ( {DASH_SP} (19 I 18\ . [0- 

9] + I nineteen I (18 | eigtiteen) { FRACT}) ) 
_20 ( {DASH_SP} (20 I 19\ . [0- 

9] + I twenty! ( 19 ! nineteen) {FRACT}) ) 
_21 ( {DASH_SP} (21! 20\ . [0- 

?one! (2 0! twenty) {FRACT}) ) 
_22 

?one) {FRACT}) ) 



) 

! (9! nine) { FRACT_QUARTER } ) ) 

- ] hours? {FRACT_QUARTER}) 

- ]days?{FRACT_QUARTER}) 

- ] we?e?lcs?{FRACT_QUARTER}) 
) 
) 

* ! (9! nine) { FRACT^HALF} ) ) 

- ] hours? {FRACT_HALF}) 

- ]days?{FRACT_HALF}) 

- ] we?e?]cs?{FRACT_HALF}) 
) 
) 



-9]+! eleven! (10 | ten) {FRACT}) ) 
-9] + I twelve! (11 j eleven) {FRACT}) ) 



_2 3 

?two) {FRACT}) ) 
_24 

?three) {FRACT}) ) 
_25 

?four) {FRACT}) ) 
_26 

?five) {FRACT}) ) 
_27 

?six) {FRACT}) ) 
_28 

? seven) {FRACT}) ) 
_2 9 

?eight) {FRACT}) ) 
_30 

?nine) { FRACT}} ) 
31 



({DASH_SP} (22!21\. [0 
({DASH_SP} (23!22\. [0 
({DASH_SP} (24!23\. [0 
({DASH_SP} (25!24\. [0 
({DASH_SP} (26|25\. [0 
({DASH_SP} (27!26\. [0 
({DASH_SP} (28!27\ 
({DASH_SP} (29!28\ 
({DASH_SP} (30!29\ 



[0 



[0 



?one! (3 0 ! thirty) {FRACT}) ) 



[0 



({DASH_SP} (3l!30\. [0 



9] + 
9] + 
9] + 
9] + 
9] + 
9] + 
9] + 
9] + 
9] + 
9] + 
9] + 



twenty- 
twenty- 
twenty- 
twenty- 
twenty- 
twenty- 
twenty- 
twenty- 
twenty- 
thirty! 
thirty- 



?two! (21 1 twenty- 
?three | (22 ! twenty - 
?f our ! (23 ! twenty- 
?f ive ! (24 ! twenty- 
?six! (25 I twenty- 
?seven| (26 ! twenty - 
?eight | (27 | twenty - 
?nine ! (2 8 | twenty- 
(2 9 I twenty- 
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32 


({dash_sp} 


(32 


|31\ 


?one) {FRACT}) ) 








_33 


({dash_sp} 


(33 


|32\ 


?two) {FRACT}) ) 








_34 


({DASH_SP} 


(34 


|33\ 


? three) { FRACT}) ) 








_35 


({dash_sp} 


(35 


|34\ 


?four) { FRACT} ) ) 








_36 


({dash_sp} 


(36 


|35\ 


?f ive) {FRACT}) ) 








_37 


{{DASH_SP} 


(37 


|36\ 


?six) {FRACT}) ) 








_3 8 


({DASH_SP} 
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yy ignore = 1; Segment erjp - 



>time_lexer . not_temporal (yytext) ; } 



yyignore = 0; Segmenterj- 



>time_lexer .not_temporal (yytext) ; } 



yyignore = 1; Segment er_p- 



>time_lexer .not_temporal (yytext) ; } 
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L 

>time_lexer , 
[mn} 

[hr} 

{da} 

[WK} 

(mo} 

[YR} 

[lt} 
[mt} 
(junk} 

{_100s} 
_99] 
~98] 
~97] 
^96] 

"94; 

93' 
_92] 
Jl] 
JO] 
'89] 
[S8] 
~_8l] 
_86) 
^85] 
"84] 
83] 
_B2] 

'ei] 
'so] 

^79] 
'73] 
[77] 
[76] 
[75] 
[74] 
[73] 
~72] 
Jl] 
~70] 

[es] 
~es] 
\ei] 

"66] 
[65] 
^64] 
"63] 
^62] 
'61 1 



yyignore = 0; Segmenter_p- 
not_temporal (yytext) ; } 

if (yytext [yyleng-l] == ' ') yyless (yyleng-1) ; 

Segmenter_p->time_lexer. temporal ("MN", yytext) 
if (yytext [yyleng-1] == ' ') yyless (yyleng- 1) ; 

Segmenter_p->time_lexer. temporal ("HR", yytext) 
if (yytext [yyleng-1] ' ') yyless (yyleng-1) ; 

Segmenter_p->time_lexer. temporal ("DA", yytext) 
if (yytext [yyleng-1] == ' ') yyless (yyleng- 1) ; 

Segmenter__p->time_lexer . temporal ("WK", yytext) 
if (yytext [yyleng-1] == ' ') yyless (yyleng-1) ; 

Segmenter_p->time_lexer . temporal ("MO", yytext) 
if (yytext [yyleng-1] ~ ' ') yyless (yyleng- 1) ; 

Segmenter_p->time_lexer . temporal ("YR", yytext) 
Segmenter__p->time_lexer .pusli { "LT" , yytext); } 
Segmenter_p->time_lexer . push { "MT" , yytext); } 
Segmenter_p->time_lexer .push ( "JUNK" , yytext); } 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter__p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segment er_p- >time_lexer . number 
Segmenter J)- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segment er_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_j) - >time_lexer . number 
Segmenter j> - >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter J)- >time_lexer . number 
Segmenter_p- >time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter j)->time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter j->time_lexer . number 
Segmenter_p- >time_lexer . number 
Segment er_p->time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter >time_lexer . number 
Segmenter_p->time_lexer . number 
Segmenter_p- >time_lexer . number 
Segment er_p->time_lexer . number 
Segmenter_p- > time_lexer . number 
Segmenter_p- >time_lexer . number 
Segment er_p - >time_lexer . number 



(char *) yytext, yytext); 
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{ Segmenter_p->tiTne_lexer . number ( "60" , yytext) ; } 

{_59} { Segmenter_p->time_lexer . number ( "59" , yytext); } 

{ Segmenter_p->time_lexer. number ( "58" , yytext); } 

{_57} { Segmenter_p->time_lexer .number ( "57 " , yytext); } 

{_56} { Segmenter_p->time_lexer .number ( "56" , yytext); } 

{_55} { Segmenter_p->time_lexer .number ( "55" , yytext); } 

{_54} { Segmenter_p->time_lexer .number ( "54 " , yytext); } 

{_53} { Segmenter_p->time_lexer. number ("53", yytext); } 

{_52} { Segmenter_p->time_lexer .number ( "52 " , yytext); } 

{_5l} { Segmenter_p->time_lexer .number ( "51" , yytext); } 

{_50} { Segmenter_p->time_lexer. number ( "50" , yytext); } 

{_49} { Segmenter J- >time_lexer . number ( "49 " , yytext); } 

{ Segmenter__p->time_lexer. number ( "48 " , yytext); } 

{_47} { Segmenter_j)- >time_lexer . number ( "47 " , yytext); } 

{_46} { Segmenter_p- >time_lexer . number ( "46 " , yytext); } 

{ Segmenter_p->time_lexer.number("45", yytext); } 

{ Segmenter_p->time_lexer .number ( "44 " , yytext); } 

{_43} { Segmenter_p->time_lexer. number ( "43 " , yytext); } 

{_42} { Segmenter_p->time_lexer. number ( "42 " , yytext); } 

{_4l} { Segmenterj»->time_lexer. number ( "41" , yytext); } 

{_40} { Segmenter_p- >time_lexer . number ( "40 " , yytext); } 

{ Segmenter_p->time_lexer . number ( "39 " , yytext); } 

{ Segmenter_p->time_lexer . number ( "38 " , yytext); } 

{_37} { Segmenter_j)- >time_lexer . number (" 37 " , yytext); } 

{_36} { Segmenter_j)- >time_lexer . number (" 36 " , yytext); } 

{—^5} { Segmenter_p->time_lexer .number { "35 " , yytext); } 

{_34} { Segmenter_p->time_lexer .number ( "34 " , yytext); } 

{_33} { Segmenterj)->time_lexer .number ( "33 " , yytext); } 

{_32} { Segmenter_p->time_lexer .number ( "32 " , yytext); } 

{_3l} { Segmenter_p->time_lexer .number ( "31" , yytext); } 

{_3*0} { Segmenter_p->time_lexer .number ( "30" , yytext); } 

{_29} { Segmenter_p->time_lexer . number ( "29" , yytext); } 

{_28} { Segmenter j)->time_lexer . number ( "28" , yytext); } 

{ Segmenter_p->time_lexer . number ( "27" , yytext); } 

{_26} { Segmenter J)- >time_lexer . number ( "26 " , yytext); } 

{_25} { Segmenter_p- >time_lexer . number ( "25 " , yytext); } 

{_24} { Segmenter_p->time_lexer . number ( "24 " , yytext); } 

{_23} { Segmenter_p->time_lexer . number ( "23 " , yytext); } 

{_22} { Segmenter_p->time_lexer. number ("22" , yytext); } 

{_2l} { Segmenterj»->time_lexer. number ("21" , yytext); } 

{_20} { Segmenter_p->time_lexer . number ( "20" , yytext); } 

{_19} { Segmenter_p- >time_lexer. number ("19" , yytext); } 

{_18} { Segmenter_j)->time_lexer .number ( "18 " , yytext); } 

{_17} { Segmenter_p- >time_lexer. number ( "17 " , yytext); } 

{_16} { Segmenter_p- >time_lexer. number ( "16" , yytext); } 

{_15} { Segmenterj)- >time_lexer. number ( "15 " , yytext); } 

{_14} { Segmenter_p- >time_lexer. number ( "14 " , yytext); } 

{ Segmenter j>->time_lexer. number ("13" , yytext); } 

{_12} { Segmenter_p- >time_lexer. number ("12" , yytext); } 

{_ll} { Segmenter_p ->time_lexer. number ("11" , yytext); } 

{_10} { Segmenter_j)- >time_lexer. number ("10" , yytext); } 

{_9_l} { Segmenter_j)->time_lexer. number ("9. 1", yytext); } 

{_9_2} { Segmenter_p->time_lexer. number ("9.2", yytext); } 

{_9_25} { Segmenter_p- >time_lexer. number ("9.25" , yytext); } 

{_9_2 5HR} { Segmenter_p->time_lexer .number ("9.25" , yytext) ; 

Segmenter_p->time_lexer . temporal ( "HR" , yytext); } 

{_9_25DA} { Segmenter_p->time_lexer.number("9.25", yytext) ; 
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SegTnenter_p->time_lexer. temporal ( "DA" , yytext) ; } 
{_9_25WK} { Segmenter_p->time_lexer.number("9.25", yytext) ; 

Segmenter_p->time_lexer. temporal ("WK", yytext) ; } 
{_9_3} { Segmenter_p->time_lexer.number("9.3", yytext); } 

{_9_4} { Segmenter_p->time_lexer.number ( "9.4" , yytext); } 

{_9_5} { Segmenter_p->time_lexer.number ("9.5", yytext); } 

{_9_5HR} { Segmenter_p->time_lexer.number{"9.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("HR" , yytext) ; } 
{_9_5DA} { Segmenterj)->time_lexer.number{"9.5", yytext) ; 

Segmenter_p->time_lexer. temporal ( "DA" , yytext) ; } 
{_9_5WK} { Segmenter_p->time_lexer .number { "9 . 5 " , yytext); 

Segmenter_p->time_lexer. temporal ( "WK" , yytext) ; } 
{_9_6} { Segment er_p - >time_lexer .number { "9 . 6 " , yytext); } 

{_9_7} { Segmenter_p->time_lexer. number ("9.7", yytext); } 

{_9_75} { Segmenter_p->time_lexer .number ( "9 . 75" , yytext); } 

{_9_8} { Segmenter_p->time_lexer . number ( "9 . 8 " , yytext); } 

{_9_9} { Segmenter_p->time_lexer . number ( "9 . 9" , yytext); } 

{_9} { Segmenter_p->time_lexer. number ( "9" , yytext); } 

{_8_l} { Segmenter_p- >time_lexer . number (" 8 . 1 " , yytext); } 

2 } { Segment er_p - >time_lexer. number ( "8 . 2 " , yytext); } 

{_8_25} { Segmenter_p- >time_lexer . number ( " 8 . 25 " , yytext); } 

{_8_25HR} { Segmenter_p->time_lexer .number { " 8 . 25" , yytext); 

Segmenter_p->time_lexer . temporal ( "HR" , yytext); } 
{_8_25DA} { Segmenter_p->time_lexer.number("8.25", yytext) ; 

Segmenter__p->time_lexer. temporal ("DA", yytext) ; } 
{_8_25WK} { Segment er_jp->time_lexer .number ( "8 . 25" , yytext); 

Segmenter_p->time_lexer . temporal ( "WK" , yytext); } 
{_8_3} { Segmenter _p->time_lexer .number ( "8 . 3 " , yytext); } 

{_8_4} { Segmenter_p->time_lexer .number ( "8 . 4 " , yytext); } 

{_8_5} { Segmenter_p->time_lexer .number ( "8 . 5" , yytext); } 

{_8_5HR} { Segmenter_p->time_lexer .number ( "8 . 5" , yytext) ; 

Segmenter_p->time_lexer. temporal ("HR" , yytext) ; } 
{_8_5DA} { Segmenter_p->time_lexer. number ("8.5", yytext) ; 

Segmenter_j)->time_lexer. temporal ( "DA" , yytext) ; } 
{_8_5WK} { Segment er_p->time_lexer. number ("8.5", yytext) ; 

Segmenter_p->time_lexer. temporal ( "WK" , yytext) ; } 
{_8_6} { Segnjenter j)->time_lexer .number ( "8 . 6" , yytext); } 

{_8_7} { Segmenter_p->time_lexer . number { "8 . 7" , yytext); } 

{_8_75} { Segmenter_j)->time_lexer .number ( "8 . 75" , yytext); } 

{_8_8} { Segmenter_j>->time_lexer . number { "8 . 8" , yytext); } 

{_8_9} { Segmenter_p->time_lexer . number ( "8 . 9" , yytext); } 

{_8} { Segmenter_p->time_lexer . number { "8" , yytext); } 

{_7_l} { Segmenter_p->time_lexer .number ( "7 . 1" , yytext); } 

{_7_2} { Segment er_p- >time_lexer. number ( "7 . 2 " , yytext); } 

{_7_25} { Segmenter_p->time_lexer .number ( "7 . 25 " , yytext); } 

{_7_25HR} { Segmenter_p->time_lexer.number("7.25", yytext) ; 

Segmenter_p->time_lexer. temporal ("HR", yytext) ; } 
{_7_25DA} { Segmenter_p->time_lexer.number("7.25", yytext) ; 

Segmenter_p->time_lexer. temporal ( "DA" , yytext); } 
{_7_25WK} { Segmenter_p->time_lexer.number("7.25", yytext) ; 

Segmenter_p->time_lexer. temporal ( "WK" , yytext) ; } 
{_7_3} { Segmenter_p->time_lexer .number ("7 .3", yytext); } 

{_7_4} { Segmenter_p->time_lexer. number ("7.4", yytext); } 

{_7_5} { Segmenter_p->time_lexer .number ( "7 . 5" , yytext); } 

{_7_5HR} { Segmenter_p->time_lexer.number ("7.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("HR", yytext) ; } 
{_7_5DA} { Segmenter_p->time_lexer.number("7.5", yytext) ; 
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Segmenter_p->time_lexer. temporal ("DA", yytext) ; } 
{_7_5WK} { Segmenter_p->time_lexer .number ( "7 . 5" , yytext) ; 

Segmenter_p->time_lexer. temporal ("WK", yytext) ; } 
{_7_6} { Segmenter_p->time_lexer .number ( "7 . 6" , yytext); } 

{_7_7} { Segmenter_p->time_lexer. number ("7.7", yytext); } 

{_7_75} { Segmenter_p->time_lexer .number ( "7 . 75" , yytext); } 

{_7_8} { Segmenter_p->time_lexer .number ( "7 . 8 " , yytext); } 

{_7_9} { Segmenter_p->time_lexer .number ( "7 . 9" , yytext); } 

{_7} { Segmenter_p->time_lexer .number ( "7" , yytext); } 

{_6_l} { Segmenter_p->time_lexer .number ( "6 . 1" , yytext); } 

{_6_2} { Segmenter_p->time_lexer. number ("6.2", yytext); } 

{_6_25} { Segmenter_p->time_lexer .number ( "6 . 25" , yytext); } 

{_6_25HR} { Segmenter_p->time_lexer .number ( "6 . 25" , yytext) ; 

Segmenter_p->time_lexer. temporal ( "HR" , yytext) ; } 
{_6_25DA} { Segmenter_p->time_lexer .number ( "6 . 25" , yytext) ; 

Segmenter_p->time_lexer. temporal ( "DA" , yytext) ; } 
{_6_2 5WK} { Segmenter_j)->time_lexer. number ("6.25", yytext) ; 

Segmenter_p->time_lexer. temporal ("WK", yytext) ; } 
{_6_3} { Segmenter_p->time_lexer. number ("6.3", yytext); } 

{_6_4} { Segmenter_p->time_lexer. number ("6.4", yytext); } 

{_6_5} { Segmenter_p->time_lexer. number ("6.5", yytext); } 

{_6_5HR} { Segmenter_p->time_lexer .number ( "6 . 5" , yytext) ; 

Segmenter_p->time_lexer. temporal ("HR", yytext) ; } 
{_6_5DA} { Segmenter_p->time_lexer. number ("6.5", yytext) ; 

Segmenter_p->time_lexer . temporal { "DA" , yytext); } 
{__6_5WK} { Segment er_p-> t ime_lexer . number ( "6 . 5 " , yytext); 

Segmenter__p->time_lexer . temporal ( "WK" , yytext); } 
{_6_6} { Segmenter_p->time_lexer .number ( "6 . 6 " , yytext); } 

{_6_7} { Segmenter_p->time_lexer .number ( "6 . 7 " , yytext); } 

{_6_75} { Segmenter_p->time_lexer .number ( "6 . 75" , yytext); } 

{_6_8} { Segmenter j)->time_lexer .number ( "6 . 8 " , yytext); } 

{_6_9} { Segment er_p->time_lexer .number ( "6 . 9" , yytext); } 

{_6} { Segmenterj)->time_lexer .number ( "6" , yytext); } 

{_5_l} { Segment er_p - >time_lexer . number ( "5 . 1" , yytext); } 

{_5_2} { Segmenter_p->time_lexer .number ( "5 . 2 " , yytext); } 

{_5_25} { Segmenter j)->time_lexer . number ( "5 . 25" , yytext); } 

{_5_25HR} { Segmenter_p->time_lexer. number ("5.25" , yytext) ; 

Segmenter_p->time_lexer. temporal ("HR" , yytext) ; } 
{_5_25DA} { Segmenter_p->time_lexer .number { "5 . 25" , yytext) ; 

Segmenterj>->time_lexer. temporal ("DA" , yytext) ; } 
{_5_25WK} { Segmenter_p->time_lexer.number ("5 . 25" , yytext) ; 

Segmenter_p->time_lexer. temporal ( "WK" , yytext) ; } 
{_5_3} { Segmenter_j5->time_lexer .number ( "5 . 3 " , yytext); } 

{_5_4} { Segmenter_p->time_lexer. number ("5.4", yytext); } 

5} { Segmenter_p->time_lexer .number ( "5 . 5 " , yytext); } 

{_5_5HR} { Segmenter j->time_lexer .number ( "5 . 5 " , yytext); 

Segmenter_j)->time_lexer . temporaK "HR" , yytext) ; } 
{_5_5DA} { Segmenter_j)->time_lexer . number ( "5 . 5 " , yytext); 

Segmenter_p->time_lexer. temporal ("DA", yytext) ; } 
{_5_5WK} { Segmenter_p->time_lexer.number("5.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("WK", yytext) ; } 
{_5_6} { Segmenter_p->time_lexer .number ("5 . 6" , yytext); } 

{_5_7} { Segmenter_p->time_lexer .number ("5 . 7" , yytext); } 

{_5_75} { Segmenter_j)->time_lexer .number ("5 . 75" , yytext); } 

{_5_8} { Segmenter_p->time_lexer .number ("5 . 8" , yytext); } 

{_5_9} { Segmenter_p->time__lexer .number ("5 . 9" , yytext); } 

{_5} { Segmenter_p->time_lexer .number ("5" , yytext); } 
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_4_l} { Segmenter_p->time_lexer .number ("4 . 1" , yytext) ; } 

'_4_2} { Segmenter_p->time_lexer. number ("4.2", yytext); } 

_4_25} { Segmenter_p->time_lexer .number ("4 . 25" , yytext); } 

_4_25HR} { Segmenter_p->time_lexer. number ("4.25", yytext) ; 

Segmenter_p->time_lexer . temporal ( "HR" , yytext) ; } 
_4_25DA} { Segmenter_p->time_lexer.number ("4 .25", yytext) ; 

Segmenter_j)->time_lexer. temporal ("DA", yytext) ; } 
_4_25WK} { Segmenter_p->time_lexer .number ( "4 . 25" , yytext); 

Segmenter_p->time_lexer . temporal ( "WK" , yytext) ; } 
_4_3 } { Segmenter_p->time_lexer . number ( "4 . 3 " , yytext); } 

.—^^^} { Segmenter_p->time_lexer .number ( "4 . 4 " , yytext); } 

.^^^^} { Segmenter_p->time_lexer . number ( "4 . 5" , yytext); } 

_4_5HR} { Segment er_p-> t ime_l exer . number ( "4 . 5" , yytext); 

Segmenter_p->time_lexer . temporal ( "HR" , yytext); } 
_4_5DA} { Segmenterj>->time_lexer.number ("4.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("DA", yytext) ; } 
_4_5WK} { Segmenter_p->time_lexer.number("4.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("WK", yytext) ; } 
_4_6} { Segmenter_p->time_lexer.number ("4 .6", yytext); } 

_4_7} { Segmenter_p->time_lexer . number ( "4 . 7 " , yytext); } 

_4_75} { Segmenter_p->time_lexer.number ("4 .75", yytext); } 

_4_8} { Segmenter_p->time_lexer .number ( "4 . 8" , yytext); } 

_4_9} { Segmenter_j)->time_lexer.number("4.9", yytext); } 

_4} { Segmenter_p->time_lexer .number ( "4 " , yytext); } 

_3_l} { Segment er_p->time_lexer .number ( "3 . 1" , yytext); } 

{ Segmenter_p->time_lexer .number ( "3 . 2 " , yytext); } 
_3_25} { Segmenter_p->time_lexer .number ( "3 . 25" , yytext); } 

_3_25HR} { Segmenter_p->time_lexer . number ( "3 . 25" , yytext); 

Segmenter J- >time_lexer. temporal ( "HR" , yytext); } 
_3_25DA} { Segmenter_j)->time_lexer .number ( "3 . 25" , yytext); 

Segmenter_p->time_lexer. temporal ("DA" , yytext); } 
_3_25WK} { Segmenter_p->time_lexer .number ( "3 . 25" , yytext); 

Segmenter^p- >time_lexer . temporal ( "WK" , yytext); } 
{ Segmenter_p->time_lexer . number ( "3 . 3 " , yytext); } 
_3_4} { Segmenter_p->time_lexer.number ("3.4", yytext); } 

_3_5} { Segmenter_p->time_lexer. number ("3.5", yytext); } 

_9_5HR} { Segmenter_p->time_lexer. number ("3.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("HR" , yytext) ; } 
_9_5DA} { Segmenter_p->time_lexer.number ("3.5", yytext) ; 

Segmenter_p->time_lexer. temporal ("DA" , yytext) ; } 
_9_5WK} { Segmenter_p->time_lexer. number ("3.5", yytext) ; 

Segmenterj)->time_lexer. temporal ("WK" , yytext) ; } 
_3_6} { Segmenterj)->time_lexer.number ("3.6", yytext); } 

_3_7} { Segmenter_p->time_lexer.number ("3.7", yytext); } 

{ Segmenter_p->time_lexer .number ( "3 . 75" , yytext); } 
_^_^} { Segmenter j>->time_lexer . number ( "3 . 8" , yytext); } 

_^_^} { Segmenter_p->time_lexer . number ( "3 . 9" , yytext); } 

_3} { Segmenter_p->time_lexer .number ( "3" , yytext); } 

_2_l} { Segmenter j)->time_lexer . number ( "2 . 1" , yytext); } 

_2_2 } { Segmenter_p->time_lexer . number ( "2 . 2 " , yytext); } 

_2_25} { Segmenter_p->time_lexer .number ( "2 . 25" , yytext); } 

_2_2 5HR} { Segmenter_p->time_lexer . number ( "2 . 25" , yytext) ; 

Segmenter_p->time_lexer . temporal ( "HR" , yytext); } 
_2_25DA} { Segmenter_p->time_lexer .number ( "2 . 25" , yytext); 

Segmenter_p->time_lexer. temporal ("DA" , yytext) ; } 
_2_25WK} { Segmenter J)- >time_lexer. number ("2.25", yytext) ; 

Segmenterjp->time_lexer. temporal ("WK", yytext) ; } 
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{_2_3} { Segmenter_p->time_lexer. number ("2.3", yytext) ; } 

{ SegTnenter_p->time_lexer . number ( "2 . 4 " , yytext); } 
{_2_5} { Segmenter_p->time_lexer .number ( "2 . 5 " , yytext); } 

{_2_5HR} { Segmenter_p->time_lexer . number ( "2 . 5 " , yytext) ; 

Segmenter_p->time_lexer. temporal ("HR", yytext) ; } 
{_2_5DA} { Segmenter_p->time_lexer . number ( "2 . 5 " , yytext); 

Segmenter_p->time_lexer . temporal ( "DA" , yytext); } 
{_2_5WK} { Segmenter_p->time_lexer . number ( "2 . 5 " , yytext); 

Segmenter_p->time_lexer . temporal ( "WK" , yytext); } 
{_2_6} { Segmenter_j)->time_lexer . number ( "2 . 6 " , yytext); } 

{_2_7} { Segmenter_j)->time_lexer.number ("2 .7" , yytext); } 

{_2_75} { Segmenter_p->time_lexer.number ("2 .75", yytext); } 

{_2_8} { Segmenter_p->time_lexer.number ("2 .8" , yytext); } 

{_2_9} { Segmenter_p->time_lexer .number { "2 . 9" , yytext); } 

{_2} { Segmenter_p->time_lexer .number { "2 " , yytext); } 

{_l_l} { Segmenter_p->time_lexer .number { "1 . 1" , yytext); } 

{_1_2} { Segmenter_p->time_lexer. number ("1.2", yytext); } 

{_1_25} { Segmenter_p->time_lexer .number ( "1 . 25 " , yytext); } 

{_1_25HR} { Segmenter_p->time_lexer . number ( "1 . 25 " , yytext); 

Segmenter_p->time_lexer . temporal ( "HR" , yytext); } 
{_1_25DA} { Segmenter j)->time_lexer .number ( " 1 . 25 " , yytext); 

Segmenter_p->time_lexer. temporal ( "DA" , yytext); } 
{_1_25WK} { Segmenter_p->time_lexer . number ( "1 . 25" , yytext); 

Segmenter_p->time_lexer . temporal ( "WK" , yytext); } 
{_1_3} { Segmenter_p->time_lexer . number { "1 . 3 " , yytext); } 

{_1_4} { Segmenter_p->time_lexer . number ( "1 .4 " , yytext); } 

{_1_5} { Segmenter_p->time_lexer . number ( "1 . 5 " , yytext); } 

{_1_5HR} { Segmenter_p->time_lexer .number ( "1 . 5 " , yytext) ; 

Segmenter_p->time_lexer. temporal ("HR" , yytext) ; } 
{_1_5DA} { Segment er_p->time_lexer .number ( "1 . 5 " , yytext); 

Segmenter_j)->time_lexer . temporal ( "DA" , yytext); } 
{_1_5WK} { Segmenter_j)->time_lexer. number ("1.5", yytext) ; 

Segmenter_p->time_lexer. temporal ( "WK" , yytext) ; } 
{_1_6} { Segmenter_j)->time_lexer. number ( "1 , 6 " , yytext); } 

{_1_7} { Segmenter_j5->time_lexer. number ( "1 . 7 " , yytext); } 

{_1_75} { Segment er_p- > t ime_l exer . number ( "1 . 75" , yytext); } 

{_1_8} { Segment e r j>->time_lexer . number ( "1 . 8 " , yytext); } 

{_1_9} { Segment er J)- >time_lexer . number ( "1 . 9" , yytext); } 

{_l} { Segmenter_p->time_lexer. number ( "1" , yytext); } 

{_0_l} { Segmenter_p->time_lexer. number ( "0 . 1" , yytext); } 

{_0_2} { Segmenter_p->time_lexer. number ( "0 . 2 " , yytext); } 

{_0_25} { Segmenter_p->time_lexer. number ("0.25", yytext); } 

{_0_3} { Segmenter_p->time_lexer. number ("0.3", yytext); } 

{_0_4} { Segmenter_p->time_lexer. number ( "0 . 4 " , yytext); } 

{_0_5} { Segmenter_p->time_lexer. number ( "0 . 5 " , yytext); } 

{_0_6} { Segmenter_p->time_lexer. number ("0.6", yytext).; } 

{_0_7} { Segmenter_p->time_lexer. number ("0.7", yytext); } 

{_0__75} { Segmenter_p->time_lexer. number ("0.75", yytext); } 

{_0_8} { Segmenter_p->time_lexer .number ( "0 . 8" , yytext); } 

{_0_9} { Segmenter_j)->time_lexer. number ( "0 . 9" , yytext); } 

[^\.\n] { Segmenter j>->time_lexer . not_temporal (yytext) ; } 

\. { Segmenter_p->time_lexer . not_temporal (yytext) ; 

Segmenter_j)->time_lexer . clear ( ) ; } 
\n { Segmenter_p->time_lexer . end__line ( ) ; } 



%% 
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int yypositionO { return (strlen ( (char *) YY_CURRENT_BUFFER- 
>yy_t^^f jpos) ) ; } 

#ifdef LEXER 

SegmenterBaseClass Segmenter; 
SegmenterBaseClass *Segmenter_p; 

int 

main (int argc, char* argv[]) { 
Segmenter jp = &Segmenter; 
return yylexO ; 

} 

#endif 
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